home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ShareWare OnLine 2
/
ShareWare OnLine Volume 2 (CMS Software)(1993).iso
/
prog
/
pbc22b.zip
/
PBC$BAS.ZIP
/
EXPLATTR.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-01-01
|
2KB
|
35 lines
' +----------------------------------------------------------------------+
' | |
' | PBClone Copyright (c) 1990-1993 Thomas G. Hanlin III |
' | |
' +----------------------------------------------------------------------+
FUNCTION ExplainFAttr$ (VAttr%, AbbrevLevel%)
Result$ = ""
SELECT CASE AbbrevLevel%
CASE 1
IF VAttr% AND 1 THEN Result$ = Result$ + " R"
IF VAttr% AND 2 THEN Result$ = Result$ + " H"
IF VAttr% AND 4 THEN Result$ = Result$ + " S"
IF VAttr% AND 8 THEN Result$ = Result$ + " V"
IF VAttr% AND 16 THEN Result$ = Result$ + " D"
IF VAttr% AND 32 THEN Result$ = Result$ + " A"
CASE 2
IF VAttr% AND 1 THEN Result$ = Result$ + " R-O"
IF VAttr% AND 2 THEN Result$ = Result$ + " Hid"
IF VAttr% AND 4 THEN Result$ = Result$ + " Sys"
IF VAttr% AND 8 THEN Result$ = Result$ + " Vol"
IF VAttr% AND 16 THEN Result$ = Result$ + " Dir"
IF VAttr% AND 32 THEN Result$ = Result$ + " Arc"
CASE 3
IF VAttr% AND 1 THEN Result$ = Result$ + " Read-Only"
IF VAttr% AND 2 THEN Result$ = Result$ + " Hidden"
IF VAttr% AND 4 THEN Result$ = Result$ + " System"
IF VAttr% AND 8 THEN Result$ = Result$ + " Volume"
IF VAttr% AND 16 THEN Result$ = Result$ + " Directory"
IF VAttr% AND 32 THEN Result$ = Result$ + " Archive"
CASE ELSE: Result$ = "Invalid AbbrevLevel%"
END SELECT
ExplainFAttr$ = LTRIM$(Result$)
END FUNCTION